#!/usr/bin/perl
#
use strict;

foreach my $entry (0 .. 255 ) {
  print("$entry.in-addr.arpa $entry.0.0.0 $entry.255.255.255 3\n");
}
